object dmoDecisao: TdmoDecisao
  OldCreateOrder = False
  Height = 453
  Width = 457
  object qryAssinante: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO ASSINANTE'
      '  (ID, ASSINANTE, ATIVO)'
      'VALUES'
      '  (:ID, :ASSINANTE, :ATIVO)')
    SQLDelete.Strings = (
      'DELETE FROM ASSINANTE'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE ASSINANTE'
      'SET'
      '  ID = :ID, ASSINANTE = :ASSINANTE, ATIVO = :ATIVO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      'SELECT ID, ASSINANTE, ATIVO FROM ASSINANTE'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM ASSINANTE'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM ASSINANTE')
    Left = 40
    Top = 80
    object qryAssinanteID: TLargeintField
      FieldName = 'ID'
    end
    object qryAssinanteASSINANTE: TWideStringField
      FieldName = 'ASSINANTE'
      FixedChar = True
    end
    object qryAssinanteATIVO: TIntegerField
      FieldName = 'ATIVO'
    end
  end
  object MyConnection: TMyConnection
    Database = 'decisao'
    Port = 13306
    ConnectionTimeout = 0
    Options.UseUnicode = True
    Options.Charset = 'utf8'
    Options.DisconnectedMode = True
    Options.LocalFailover = True
    Username = 'decisao'
    Password = 'M0r@15r315*'
    Server = 'localhost'
    LoginPrompt = False
    Left = 40
    Top = 24
  end
  object qryPessoas: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO CLIENTE'
      
        '  (ID, ID_ASSINANTE, TIPO, NOME, RAZAOSOCIAL, CPF_CNPJ, RG_IE, O' +
        'RGAOEXP, IM, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, UF, ' +
        'CEP, ENT_NOME, ENT_ENDERECO, ENT_NUMERO, ENT_COMPLEMENTO, ENT_BA' +
        'IRRO, ENT_CIDADE, ENT_UF, ENT_CEP, FONE, FAX, CELULAR, EMAIL, SE' +
        'NHA, OBSERVACOES, DATANASC, NATURALIDADE, SEXO, ESTADO_CIVIL, PA' +
        'I, MAE, TRAB_PROFISSAO, TRAB_CARTEIRA, TRAB_EMPRESA, TRAB_ENDERE' +
        'CO, TRAB_NUMERO, TRAB_BAIRRO, TRAB_CIDADE, TRAB_UF, TRAB_CEP, TR' +
        'AB_FONE, TRAB_CARGO, TRAB_SALARIO, TRAB_DATAADM, CONJ_NOME, CONJ' +
        '_RG, CONJ_CPF, CONJ_DATANASC, CONJ_CARTEIRA, CONJ_EMPRESA, CONJ_' +
        'CARGO, CONJ_SALARIO, CONJ_DATAADM, CRED_LIMITE, CRED_BLOQUEIO, R' +
        'EF1, REF2, REF3, LIXO, LIXO_USUARIO, LIXO_DATA, ID_SESSAO)'
      'VALUES'
      
        '  (:ID, :ID_ASSINANTE, :TIPO, :NOME, :RAZAOSOCIAL, :CPF_CNPJ, :R' +
        'G_IE, :ORGAOEXP, :IM, :ENDERECO, :NUMERO, :COMPLEMENTO, :BAIRRO,' +
        ' :CIDADE, :UF, :CEP, :ENT_NOME, :ENT_ENDERECO, :ENT_NUMERO, :ENT' +
        '_COMPLEMENTO, :ENT_BAIRRO, :ENT_CIDADE, :ENT_UF, :ENT_CEP, :FONE' +
        ', :FAX, :CELULAR, :EMAIL, :SENHA, :OBSERVACOES, :DATANASC, :NATU' +
        'RALIDADE, :SEXO, :ESTADO_CIVIL, :PAI, :MAE, :TRAB_PROFISSAO, :TR' +
        'AB_CARTEIRA, :TRAB_EMPRESA, :TRAB_ENDERECO, :TRAB_NUMERO, :TRAB_' +
        'BAIRRO, :TRAB_CIDADE, :TRAB_UF, :TRAB_CEP, :TRAB_FONE, :TRAB_CAR' +
        'GO, :TRAB_SALARIO, :TRAB_DATAADM, :CONJ_NOME, :CONJ_RG, :CONJ_CP' +
        'F, :CONJ_DATANASC, :CONJ_CARTEIRA, :CONJ_EMPRESA, :CONJ_CARGO, :' +
        'CONJ_SALARIO, :CONJ_DATAADM, :CRED_LIMITE, :CRED_BLOQUEIO, :REF1' +
        ', :REF2, :REF3, :LIXO, :LIXO_USUARIO, :LIXO_DATA, :ID_SESSAO)')
    SQLDelete.Strings = (
      'DELETE FROM CLIENTE'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE CLIENTE'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, TIPO = :TIPO, NOME = :' +
        'NOME, RAZAOSOCIAL = :RAZAOSOCIAL, CPF_CNPJ = :CPF_CNPJ, RG_IE = ' +
        ':RG_IE, ORGAOEXP = :ORGAOEXP, IM = :IM, ENDERECO = :ENDERECO, NU' +
        'MERO = :NUMERO, COMPLEMENTO = :COMPLEMENTO, BAIRRO = :BAIRRO, CI' +
        'DADE = :CIDADE, UF = :UF, CEP = :CEP, ENT_NOME = :ENT_NOME, ENT_' +
        'ENDERECO = :ENT_ENDERECO, ENT_NUMERO = :ENT_NUMERO, ENT_COMPLEME' +
        'NTO = :ENT_COMPLEMENTO, ENT_BAIRRO = :ENT_BAIRRO, ENT_CIDADE = :' +
        'ENT_CIDADE, ENT_UF = :ENT_UF, ENT_CEP = :ENT_CEP, FONE = :FONE, ' +
        'FAX = :FAX, CELULAR = :CELULAR, EMAIL = :EMAIL, SENHA = :SENHA, ' +
        'OBSERVACOES = :OBSERVACOES, DATANASC = :DATANASC, NATURALIDADE =' +
        ' :NATURALIDADE, SEXO = :SEXO, ESTADO_CIVIL = :ESTADO_CIVIL, PAI ' +
        '= :PAI, MAE = :MAE, TRAB_PROFISSAO = :TRAB_PROFISSAO, TRAB_CARTE' +
        'IRA = :TRAB_CARTEIRA, TRAB_EMPRESA = :TRAB_EMPRESA, TRAB_ENDEREC' +
        'O = :TRAB_ENDERECO, TRAB_NUMERO = :TRAB_NUMERO, TRAB_BAIRRO = :T' +
        'RAB_BAIRRO, TRAB_CIDADE = :TRAB_CIDADE, TRAB_UF = :TRAB_UF, TRAB' +
        '_CEP = :TRAB_CEP, TRAB_FONE = :TRAB_FONE, TRAB_CARGO = :TRAB_CAR' +
        'GO, TRAB_SALARIO = :TRAB_SALARIO, TRAB_DATAADM = :TRAB_DATAADM, ' +
        'CONJ_NOME = :CONJ_NOME, CONJ_RG = :CONJ_RG, CONJ_CPF = :CONJ_CPF' +
        ', CONJ_DATANASC = :CONJ_DATANASC, CONJ_CARTEIRA = :CONJ_CARTEIRA' +
        ', CONJ_EMPRESA = :CONJ_EMPRESA, CONJ_CARGO = :CONJ_CARGO, CONJ_S' +
        'ALARIO = :CONJ_SALARIO, CONJ_DATAADM = :CONJ_DATAADM, CRED_LIMIT' +
        'E = :CRED_LIMITE, CRED_BLOQUEIO = :CRED_BLOQUEIO, REF1 = :REF1, ' +
        'REF2 = :REF2, REF3 = :REF3, LIXO = :LIXO, LIXO_USUARIO = :LIXO_U' +
        'SUARIO, LIXO_DATA = :LIXO_DATA, ID_SESSAO = :ID_SESSAO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, TIPO, NOME, RAZAOSOCIAL, CPF_CNPJ, RG_I' +
        'E, ORGAOEXP, IM, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ' +
        'UF, CEP, ENT_NOME, ENT_ENDERECO, ENT_NUMERO, ENT_COMPLEMENTO, EN' +
        'T_BAIRRO, ENT_CIDADE, ENT_UF, ENT_CEP, FONE, FAX, CELULAR, EMAIL' +
        ', SENHA, OBSERVACOES, DATANASC, NATURALIDADE, SEXO, ESTADO_CIVIL' +
        ', PAI, MAE, TRAB_PROFISSAO, TRAB_CARTEIRA, TRAB_EMPRESA, TRAB_EN' +
        'DERECO, TRAB_NUMERO, TRAB_BAIRRO, TRAB_CIDADE, TRAB_UF, TRAB_CEP' +
        ', TRAB_FONE, TRAB_CARGO, TRAB_SALARIO, TRAB_DATAADM, CONJ_NOME, ' +
        'CONJ_RG, CONJ_CPF, CONJ_DATANASC, CONJ_CARTEIRA, CONJ_EMPRESA, C' +
        'ONJ_CARGO, CONJ_SALARIO, CONJ_DATAADM, CRED_LIMITE, CRED_BLOQUEI' +
        'O, REF1, REF2, REF3, LIXO, LIXO_USUARIO, LIXO_DATA, ID_SESSAO FR' +
        'OM CLIENTE'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM CLIENTE'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM CLIENTE')
    RefreshOptions = [roAfterInsert]
    Left = 40
    Top = 192
    object qryPessoasID: TLargeintField
      FieldName = 'ID'
    end
    object qryPessoasID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
    end
    object qryPessoasTIPO: TWideStringField
      FieldName = 'TIPO'
      FixedChar = True
      Size = 2
    end
    object qryPessoasNOME: TWideStringField
      FieldName = 'NOME'
      FixedChar = True
      Size = 60
    end
    object qryPessoasRAZAOSOCIAL: TWideStringField
      FieldName = 'RAZAOSOCIAL'
      FixedChar = True
      Size = 60
    end
    object qryPessoasCPF_CNPJ: TWideStringField
      FieldName = 'CPF_CNPJ'
      FixedChar = True
      Size = 15
    end
    object qryPessoasRG_IE: TWideStringField
      FieldName = 'RG_IE'
      FixedChar = True
      Size = 15
    end
    object qryPessoasORGAOEXP: TWideStringField
      FieldName = 'ORGAOEXP'
      FixedChar = True
      Size = 10
    end
    object qryPessoasIM: TWideStringField
      FieldName = 'IM'
      FixedChar = True
      Size = 15
    end
    object qryPessoasENDERECO: TWideStringField
      FieldName = 'ENDERECO'
      FixedChar = True
      Size = 60
    end
    object qryPessoasNUMERO: TWideStringField
      FieldName = 'NUMERO'
      FixedChar = True
      Size = 10
    end
    object qryPessoasCOMPLEMENTO: TWideStringField
      FieldName = 'COMPLEMENTO'
      FixedChar = True
      Size = 30
    end
    object qryPessoasBAIRRO: TWideStringField
      FieldName = 'BAIRRO'
      FixedChar = True
      Size = 60
    end
    object qryPessoasCIDADE: TWideStringField
      FieldName = 'CIDADE'
      FixedChar = True
      Size = 60
    end
    object qryPessoasUF: TWideStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object qryPessoasCEP: TWideStringField
      FieldName = 'CEP'
      FixedChar = True
      Size = 9
    end
    object qryPessoasENT_NOME: TWideStringField
      FieldName = 'ENT_NOME'
      FixedChar = True
      Size = 60
    end
    object qryPessoasENT_ENDERECO: TWideStringField
      FieldName = 'ENT_ENDERECO'
      FixedChar = True
      Size = 60
    end
    object qryPessoasENT_NUMERO: TWideStringField
      FieldName = 'ENT_NUMERO'
      FixedChar = True
      Size = 10
    end
    object qryPessoasENT_COMPLEMENTO: TWideStringField
      FieldName = 'ENT_COMPLEMENTO'
      FixedChar = True
      Size = 30
    end
    object qryPessoasENT_BAIRRO: TWideStringField
      FieldName = 'ENT_BAIRRO'
      FixedChar = True
      Size = 60
    end
    object qryPessoasENT_CIDADE: TWideStringField
      FieldName = 'ENT_CIDADE'
      FixedChar = True
      Size = 60
    end
    object qryPessoasENT_UF: TWideStringField
      FieldName = 'ENT_UF'
      FixedChar = True
      Size = 2
    end
    object qryPessoasENT_CEP: TWideStringField
      FieldName = 'ENT_CEP'
      FixedChar = True
      Size = 9
    end
    object qryPessoasFONE: TWideStringField
      FieldName = 'FONE'
      FixedChar = True
      Size = 15
    end
    object qryPessoasFAX: TWideStringField
      FieldName = 'FAX'
      FixedChar = True
      Size = 15
    end
    object qryPessoasCELULAR: TWideStringField
      FieldName = 'CELULAR'
      FixedChar = True
      Size = 15
    end
    object qryPessoasEMAIL: TWideStringField
      FieldName = 'EMAIL'
      FixedChar = True
      Size = 40
    end
    object qryPessoasSENHA: TWideStringField
      FieldName = 'SENHA'
      FixedChar = True
      Size = 40
    end
    object qryPessoasOBSERVACOES: TWideStringField
      FieldName = 'OBSERVACOES'
      FixedChar = True
      Size = 254
    end
    object qryPessoasDATANASC: TDateField
      FieldName = 'DATANASC'
    end
    object qryPessoasNATURALIDADE: TWideStringField
      FieldName = 'NATURALIDADE'
      FixedChar = True
      Size = 60
    end
    object qryPessoasSEXO: TWideStringField
      FieldName = 'SEXO'
      FixedChar = True
      Size = 10
    end
    object qryPessoasESTADO_CIVIL: TWideStringField
      FieldName = 'ESTADO_CIVIL'
      FixedChar = True
      Size = 15
    end
    object qryPessoasPAI: TWideStringField
      FieldName = 'PAI'
      FixedChar = True
      Size = 60
    end
    object qryPessoasMAE: TWideStringField
      FieldName = 'MAE'
      FixedChar = True
      Size = 60
    end
    object qryPessoasTRAB_PROFISSAO: TWideStringField
      FieldName = 'TRAB_PROFISSAO'
      FixedChar = True
      Size = 30
    end
    object qryPessoasTRAB_CARTEIRA: TWideStringField
      FieldName = 'TRAB_CARTEIRA'
      FixedChar = True
      Size = 15
    end
    object qryPessoasTRAB_EMPRESA: TWideStringField
      FieldName = 'TRAB_EMPRESA'
      FixedChar = True
      Size = 60
    end
    object qryPessoasTRAB_ENDERECO: TWideStringField
      FieldName = 'TRAB_ENDERECO'
      FixedChar = True
      Size = 60
    end
    object qryPessoasTRAB_NUMERO: TWideStringField
      FieldName = 'TRAB_NUMERO'
      FixedChar = True
      Size = 10
    end
    object qryPessoasTRAB_BAIRRO: TWideStringField
      FieldName = 'TRAB_BAIRRO'
      FixedChar = True
      Size = 60
    end
    object qryPessoasTRAB_CIDADE: TWideStringField
      FieldName = 'TRAB_CIDADE'
      FixedChar = True
      Size = 60
    end
    object qryPessoasTRAB_UF: TWideStringField
      FieldName = 'TRAB_UF'
      FixedChar = True
      Size = 2
    end
    object qryPessoasTRAB_CEP: TWideStringField
      FieldName = 'TRAB_CEP'
      FixedChar = True
      Size = 9
    end
    object qryPessoasTRAB_FONE: TWideStringField
      FieldName = 'TRAB_FONE'
      FixedChar = True
      Size = 15
    end
    object qryPessoasTRAB_CARGO: TWideStringField
      FieldName = 'TRAB_CARGO'
      FixedChar = True
      Size = 30
    end
    object qryPessoasTRAB_SALARIO: TFloatField
      FieldName = 'TRAB_SALARIO'
    end
    object qryPessoasTRAB_DATAADM: TDateField
      FieldName = 'TRAB_DATAADM'
    end
    object qryPessoasCONJ_NOME: TWideStringField
      FieldName = 'CONJ_NOME'
      FixedChar = True
      Size = 60
    end
    object qryPessoasCONJ_RG: TWideStringField
      FieldName = 'CONJ_RG'
      FixedChar = True
      Size = 15
    end
    object qryPessoasCONJ_CPF: TWideStringField
      FieldName = 'CONJ_CPF'
      FixedChar = True
      Size = 15
    end
    object qryPessoasCONJ_DATANASC: TDateField
      FieldName = 'CONJ_DATANASC'
    end
    object qryPessoasCONJ_CARTEIRA: TWideStringField
      FieldName = 'CONJ_CARTEIRA'
      FixedChar = True
      Size = 15
    end
    object qryPessoasCONJ_EMPRESA: TWideStringField
      FieldName = 'CONJ_EMPRESA'
      FixedChar = True
      Size = 60
    end
    object qryPessoasCONJ_CARGO: TWideStringField
      FieldName = 'CONJ_CARGO'
      FixedChar = True
      Size = 30
    end
    object qryPessoasCONJ_SALARIO: TFloatField
      FieldName = 'CONJ_SALARIO'
    end
    object qryPessoasCONJ_DATAADM: TDateField
      FieldName = 'CONJ_DATAADM'
    end
    object qryPessoasCRED_LIMITE: TFloatField
      FieldName = 'CRED_LIMITE'
    end
    object qryPessoasCRED_BLOQUEIO: TIntegerField
      FieldName = 'CRED_BLOQUEIO'
    end
    object qryPessoasREF1: TWideStringField
      FieldName = 'REF1'
      FixedChar = True
      Size = 60
    end
    object qryPessoasREF2: TWideStringField
      FieldName = 'REF2'
      FixedChar = True
      Size = 60
    end
    object qryPessoasREF3: TWideStringField
      FieldName = 'REF3'
      FixedChar = True
      Size = 60
    end
    object qryPessoasLIXO: TIntegerField
      FieldName = 'LIXO'
    end
    object qryPessoasLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryPessoasLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
    end
    object qryPessoasID_SESSAO: TLargeintField
      FieldName = 'ID_SESSAO'
    end
  end
  object qryEmpresas: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO EMPRESA'
      
        '  (ID, ID_ASSINANTE, EMPRESA, RAZAOSOCIAL, CNPJ, IE, IM, CNAE, E' +
        'NDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, UF, CEP, FONE, FAX' +
        ', CELULAR, SITE, EMAIL, NFE_ATIVO, NFE_PROXIMO, TCX_ATIVO, LIXO,' +
        ' LIXO_USUARIO, LIXO_DATA, ID_SESSAO)'
      'VALUES'
      
        '  (:ID, :ID_ASSINANTE, :EMPRESA, :RAZAOSOCIAL, :CNPJ, :IE, :IM, ' +
        ':CNAE, :ENDERECO, :NUMERO, :COMPLEMENTO, :BAIRRO, :CIDADE, :UF, ' +
        ':CEP, :FONE, :FAX, :CELULAR, :SITE, :EMAIL, :NFE_ATIVO, :NFE_PRO' +
        'XIMO, :TCX_ATIVO, :LIXO, :LIXO_USUARIO, :LIXO_DATA, :ID_SESSAO)')
    SQLDelete.Strings = (
      'DELETE FROM EMPRESA'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE EMPRESA'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, EMPRESA = :EMPRESA, RA' +
        'ZAOSOCIAL = :RAZAOSOCIAL, CNPJ = :CNPJ, IE = :IE, IM = :IM, CNAE' +
        ' = :CNAE, ENDERECO = :ENDERECO, NUMERO = :NUMERO, COMPLEMENTO = ' +
        ':COMPLEMENTO, BAIRRO = :BAIRRO, CIDADE = :CIDADE, UF = :UF, CEP ' +
        '= :CEP, FONE = :FONE, FAX = :FAX, CELULAR = :CELULAR, SITE = :SI' +
        'TE, EMAIL = :EMAIL, NFE_ATIVO = :NFE_ATIVO, NFE_PROXIMO = :NFE_P' +
        'ROXIMO, TCX_ATIVO = :TCX_ATIVO, LIXO = :LIXO, LIXO_USUARIO = :LI' +
        'XO_USUARIO, LIXO_DATA = :LIXO_DATA, ID_SESSAO = :ID_SESSAO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, EMPRESA, RAZAOSOCIAL, CNPJ, IE, IM, CNA' +
        'E, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, UF, CEP, FONE,' +
        ' FAX, CELULAR, SITE, EMAIL, NFE_ATIVO, NFE_PROXIMO, TCX_ATIVO, L' +
        'IXO, LIXO_USUARIO, LIXO_DATA, ID_SESSAO FROM EMPRESA'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM EMPRESA'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM EMPRESA')
    Left = 40
    Top = 136
    object qryEmpresasID: TLargeintField
      FieldName = 'ID'
    end
    object qryEmpresasID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
    end
    object qryEmpresasEMPRESA: TWideStringField
      FieldName = 'EMPRESA'
      FixedChar = True
      Size = 30
    end
    object qryEmpresasRAZAOSOCIAL: TWideStringField
      FieldName = 'RAZAOSOCIAL'
      FixedChar = True
      Size = 60
    end
    object qryEmpresasCNPJ: TWideStringField
      FieldName = 'CNPJ'
      FixedChar = True
      Size = 15
    end
    object qryEmpresasIE: TWideStringField
      FieldName = 'IE'
      FixedChar = True
      Size = 15
    end
    object qryEmpresasIM: TWideStringField
      FieldName = 'IM'
      FixedChar = True
      Size = 15
    end
    object qryEmpresasCNAE: TWideStringField
      FieldName = 'CNAE'
      FixedChar = True
      Size = 10
    end
    object qryEmpresasENDERECO: TWideStringField
      FieldName = 'ENDERECO'
      FixedChar = True
      Size = 60
    end
    object qryEmpresasNUMERO: TWideStringField
      FieldName = 'NUMERO'
      FixedChar = True
      Size = 10
    end
    object qryEmpresasCOMPLEMENTO: TWideStringField
      FieldName = 'COMPLEMENTO'
      FixedChar = True
      Size = 30
    end
    object qryEmpresasBAIRRO: TWideStringField
      FieldName = 'BAIRRO'
      FixedChar = True
      Size = 60
    end
    object qryEmpresasCIDADE: TWideStringField
      FieldName = 'CIDADE'
      FixedChar = True
      Size = 60
    end
    object qryEmpresasUF: TWideStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object qryEmpresasCEP: TWideStringField
      FieldName = 'CEP'
      FixedChar = True
      Size = 9
    end
    object qryEmpresasFONE: TWideStringField
      FieldName = 'FONE'
      FixedChar = True
      Size = 15
    end
    object qryEmpresasFAX: TWideStringField
      FieldName = 'FAX'
      FixedChar = True
      Size = 15
    end
    object qryEmpresasCELULAR: TWideStringField
      FieldName = 'CELULAR'
      FixedChar = True
      Size = 15
    end
    object qryEmpresasSITE: TWideStringField
      FieldName = 'SITE'
      FixedChar = True
      Size = 50
    end
    object qryEmpresasEMAIL: TWideStringField
      FieldName = 'EMAIL'
      FixedChar = True
      Size = 50
    end
    object qryEmpresasNFE_ATIVO: TIntegerField
      FieldName = 'NFE_ATIVO'
    end
    object qryEmpresasNFE_PROXIMO: TIntegerField
      FieldName = 'NFE_PROXIMO'
    end
    object qryEmpresasTCX_ATIVO: TIntegerField
      FieldName = 'TCX_ATIVO'
    end
    object qryEmpresasLIXO: TIntegerField
      FieldName = 'LIXO'
    end
    object qryEmpresasLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryEmpresasLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
    end
    object qryEmpresasID_SESSAO: TLargeintField
      FieldName = 'ID_SESSAO'
    end
  end
  object qryCategorias: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO CATEGORIA'
      
        '  (ID, ID_ASSINANTE, CATEGORIA, LIXO, LIXO_USUARIO, LIXO_DATA, I' +
        'D_SESSAO)'
      'VALUES'
      
        '  (:ID, :ID_ASSINANTE, :CATEGORIA, :LIXO, :LIXO_USUARIO, :LIXO_D' +
        'ATA, :ID_SESSAO)')
    SQLDelete.Strings = (
      'DELETE FROM CATEGORIA'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE CATEGORIA'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, CATEGORIA = :CATEGORIA' +
        ', LIXO = :LIXO, LIXO_USUARIO = :LIXO_USUARIO, LIXO_DATA = :LIXO_' +
        'DATA, ID_SESSAO = :ID_SESSAO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, CATEGORIA, LIXO, LIXO_USUARIO, LIXO_DAT' +
        'A, ID_SESSAO FROM CATEGORIA'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM CATEGORIA'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM CATEGORIA')
    Left = 40
    Top = 248
    object qryCategoriasID: TLargeintField
      FieldName = 'ID'
    end
    object qryCategoriasID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
    end
    object qryCategoriasCATEGORIA: TWideStringField
      FieldName = 'CATEGORIA'
      FixedChar = True
      Size = 30
    end
    object qryCategoriasLIXO: TIntegerField
      FieldName = 'LIXO'
    end
    object qryCategoriasLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryCategoriasLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
    end
    object qryCategoriasID_SESSAO: TLargeintField
      FieldName = 'ID_SESSAO'
    end
  end
  object qryMarcas: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO MARCA'
      
        '  (ID, ID_ASSINANTE, MARCA, LIXO, LIXO_USUARIO, LIXO_DATA, ID_SE' +
        'SSAO)'
      'VALUES'
      
        '  (:ID, :ID_ASSINANTE, :MARCA, :LIXO, :LIXO_USUARIO, :LIXO_DATA,' +
        ' :ID_SESSAO)')
    SQLDelete.Strings = (
      'DELETE FROM MARCA'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE MARCA'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, MARCA = :MARCA, LIXO =' +
        ' :LIXO, LIXO_USUARIO = :LIXO_USUARIO, LIXO_DATA = :LIXO_DATA, ID' +
        '_SESSAO = :ID_SESSAO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, MARCA, LIXO, LIXO_USUARIO, LIXO_DATA, I' +
        'D_SESSAO FROM MARCA'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM MARCA'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM MARCA')
    Left = 40
    Top = 304
    object qryMarcasID: TLargeintField
      FieldName = 'ID'
    end
    object qryMarcasID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
    end
    object qryMarcasMARCA: TWideStringField
      FieldName = 'MARCA'
      FixedChar = True
      Size = 30
    end
    object qryMarcasLIXO: TIntegerField
      FieldName = 'LIXO'
    end
    object qryMarcasLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryMarcasLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
    end
    object qryMarcasID_SESSAO: TLargeintField
      FieldName = 'ID_SESSAO'
    end
  end
  object qryModelos: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO MODELO'
      '  (ID, ID_MARCA, MODELO)'
      'VALUES'
      '  (:ID, :ID_MARCA, :MODELO)')
    SQLDelete.Strings = (
      'DELETE FROM MODELO'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE MODELO'
      'SET'
      '  ID = :ID, ID_MARCA = :ID_MARCA, MODELO = :MODELO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      'SELECT ID, ID_MARCA, MODELO FROM MODELO'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM MODELO'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM MODELO')
    Left = 40
    Top = 360
    object qryModelosID: TLargeintField
      FieldName = 'ID'
    end
    object qryModelosID_MARCA: TLargeintField
      FieldName = 'ID_MARCA'
    end
    object qryModelosMODELO: TWideStringField
      FieldName = 'MODELO'
      FixedChar = True
      Size = 30
    end
  end
  object qryServicos: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO SERVICO'
      '  (ID, ID_ASSINANTE, SERVICO, PRECO, LIXEIRA, ID_SUCESSO)'
      'VALUES'
      '  (:ID, :ID_ASSINANTE, :SERVICO, :PRECO, :LIXEIRA, :ID_SUCESSO)')
    SQLDelete.Strings = (
      'DELETE FROM SERVICO'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE SERVICO'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, SERVICO = :SERVICO, PR' +
        'ECO = :PRECO, LIXEIRA = :LIXEIRA, ID_SUCESSO = :ID_SUCESSO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, SERVICO, PRECO, LIXEIRA, ID_SUCESSO FRO' +
        'M SERVICO'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM SERVICO'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM SERVICO')
    Left = 120
    Top = 80
    object qryServicosID: TLargeintField
      FieldName = 'ID'
    end
    object qryServicosID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
    end
    object qryServicosSERVICO: TWideStringField
      FieldName = 'SERVICO'
      FixedChar = True
      Size = 60
    end
    object qryServicosPRECO: TFloatField
      FieldName = 'PRECO'
    end
    object qryServicosLIXEIRA: TIntegerField
      FieldName = 'LIXEIRA'
    end
    object qryServicosID_SUCESSO: TLargeintField
      FieldName = 'ID_SUCESSO'
    end
  end
  object qryProdutos: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO PRODUTO'
      
        '  (ID, ID_ASSINANTE, ID_CATEGORIA, ID_MARCA, ID_MODELO, ID_NCM, ' +
        'ID_SERVICO, SERVICO, PRODUTO, UNIDADE, BARRA, CLASSIFICACAO, PRE' +
        'CO, PRECO2, PRECO3, PESO, LIXO, LIXO_USUARIO, LIXO_DATA, ID_SUCE' +
        'SSO)'
      'VALUES'
      
        '  (:ID, :ID_ASSINANTE, :ID_CATEGORIA, :ID_MARCA, :ID_MODELO, :ID' +
        '_NCM, :ID_SERVICO, :SERVICO, :PRODUTO, :UNIDADE, :BARRA, :CLASSI' +
        'FICACAO, :PRECO, :PRECO2, :PRECO3, :PESO, :LIXO, :LIXO_USUARIO, ' +
        ':LIXO_DATA, :ID_SUCESSO)')
    SQLDelete.Strings = (
      'DELETE FROM PRODUTO'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE PRODUTO'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, ID_CATEGORIA = :ID_CAT' +
        'EGORIA, ID_MARCA = :ID_MARCA, ID_MODELO = :ID_MODELO, ID_NCM = :' +
        'ID_NCM, ID_SERVICO = :ID_SERVICO, SERVICO = :SERVICO, PRODUTO = ' +
        ':PRODUTO, UNIDADE = :UNIDADE, BARRA = :BARRA, CLASSIFICACAO = :C' +
        'LASSIFICACAO, PRECO = :PRECO, PRECO2 = :PRECO2, PRECO3 = :PRECO3' +
        ', PESO = :PESO, LIXO = :LIXO, LIXO_USUARIO = :LIXO_USUARIO, LIXO' +
        '_DATA = :LIXO_DATA, ID_SUCESSO = :ID_SUCESSO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, ID_CATEGORIA, ID_MARCA, ID_MODELO, ID_N' +
        'CM, ID_SERVICO, SERVICO, PRODUTO, UNIDADE, BARRA, CLASSIFICACAO,' +
        ' PRECO, PRECO2, PRECO3, PESO, LIXO, LIXO_USUARIO, LIXO_DATA, ID_' +
        'SUCESSO FROM PRODUTO'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM PRODUTO'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM PRODUTO')
    Left = 120
    Top = 136
    object qryProdutosID: TLargeintField
      FieldName = 'ID'
    end
    object qryProdutosID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
    end
    object qryProdutosID_CATEGORIA: TLargeintField
      FieldName = 'ID_CATEGORIA'
    end
    object qryProdutosID_MARCA: TLargeintField
      FieldName = 'ID_MARCA'
    end
    object qryProdutosID_MODELO: TLargeintField
      FieldName = 'ID_MODELO'
    end
    object qryProdutosID_NCM: TLargeintField
      FieldName = 'ID_NCM'
    end
    object qryProdutosID_SERVICO: TLargeintField
      FieldName = 'ID_SERVICO'
    end
    object qryProdutosSERVICO: TIntegerField
      FieldName = 'SERVICO'
    end
    object qryProdutosPRODUTO: TWideStringField
      FieldName = 'PRODUTO'
      FixedChar = True
      Size = 50
    end
    object qryProdutosUNIDADE: TWideStringField
      FieldName = 'UNIDADE'
      FixedChar = True
      Size = 2
    end
    object qryProdutosBARRA: TWideStringField
      FieldName = 'BARRA'
      FixedChar = True
      Size = 15
    end
    object qryProdutosCLASSIFICACAO: TWideStringField
      FieldName = 'CLASSIFICACAO'
      FixedChar = True
      Size = 15
    end
    object qryProdutosPRECO: TFloatField
      FieldName = 'PRECO'
    end
    object qryProdutosPRECO2: TFloatField
      FieldName = 'PRECO2'
    end
    object qryProdutosPRECO3: TFloatField
      FieldName = 'PRECO3'
    end
    object qryProdutosPESO: TFloatField
      FieldName = 'PESO'
    end
    object qryProdutosLIXO: TIntegerField
      FieldName = 'LIXO'
    end
    object qryProdutosLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryProdutosLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
    end
    object qryProdutosID_SUCESSO: TLargeintField
      FieldName = 'ID_SUCESSO'
    end
  end
  object qryDupPessoas: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO CLIENTE'
      '  (ID)'
      'VALUES'
      '  (:ID)')
    SQLDelete.Strings = (
      'DELETE FROM CLIENTE'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE CLIENTE'
      'SET'
      '  ID = :ID'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      'SELECT ID FROM CLIENTE'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM CLIENTE'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT ID FROM CLIENTE WHERE ID_ASSINANTE = :id_assinante AND'
      'CPF_CNPJ = :cpf_cnpj')
    RefreshOptions = [roAfterInsert]
    Left = 384
    Top = 24
    ParamData = <
      item
        DataType = ftInteger
        Name = 'id_assinante'
        ParamType = ptInput
      end
      item
        DataType = ftWideString
        Name = 'cpf_cnpj'
        ParamType = ptInput
      end>
    object qryDupPessoasid: TLargeintField
      FieldName = 'id'
    end
  end
  object qryDupEmpresas: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO empresa'
      '  (id)'
      'VALUES'
      '  (:id)')
    SQLDelete.Strings = (
      'DELETE FROM empresa'
      'WHERE'
      '  id = :Old_id')
    SQLUpdate.Strings = (
      'UPDATE empresa'
      'SET'
      '  id = :id'
      'WHERE'
      '  id = :Old_id')
    SQLRefresh.Strings = (
      'SELECT ID FROM EMPRESA'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM empresa'
      'WHERE'
      '  id = :Old_id'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT ID FROM EMPRESA WHERE ID_ASSINANTE = :id_assinante AND '
      'CNPJ = :cnpj')
    RefreshOptions = [roAfterInsert]
    Left = 384
    Top = 72
    ParamData = <
      item
        DataType = ftInteger
        Name = 'id_assinante'
        ParamType = ptInput
      end
      item
        DataType = ftWideString
        Name = 'cnpj'
        ParamType = ptInput
      end>
    object LargeintField1: TLargeintField
      FieldName = 'id'
    end
  end
  object qryNivel: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO NIVEL'
      
        '  (ID, ID_ASSINANTE, NIVEL, CUSTO, NFE_ATIVO, TCX_ATIVO, LIXO, L' +
        'IXO_USUARIO, LIXO_DATA, ID_SESSAO)'
      'VALUES'
      
        '  (:ID, :ID_ASSINANTE, :NIVEL, :CUSTO, :NFE_ATIVO, :TCX_ATIVO, :' +
        'LIXO, :LIXO_USUARIO, :LIXO_DATA, :ID_SESSAO)')
    SQLDelete.Strings = (
      'DELETE FROM NIVEL'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE NIVEL'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, NIVEL = :NIVEL, CUSTO ' +
        '= :CUSTO, NFE_ATIVO = :NFE_ATIVO, TCX_ATIVO = :TCX_ATIVO, LIXO =' +
        ' :LIXO, LIXO_USUARIO = :LIXO_USUARIO, LIXO_DATA = :LIXO_DATA, ID' +
        '_SESSAO = :ID_SESSAO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, NIVEL, CUSTO, NFE_ATIVO, TCX_ATIVO, LIX' +
        'O, LIXO_USUARIO, LIXO_DATA, ID_SESSAO FROM NIVEL'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM NIVEL'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM NIVEL')
    Left = 120
    Top = 192
    object qryNivelID: TLargeintField
      FieldName = 'ID'
    end
    object qryNivelID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
    end
    object qryNivelNIVEL: TWideStringField
      FieldName = 'NIVEL'
      FixedChar = True
    end
    object qryNivelCUSTO: TIntegerField
      FieldName = 'CUSTO'
    end
    object qryNivelNFE_ATIVO: TIntegerField
      FieldName = 'NFE_ATIVO'
    end
    object qryNivelTCX_ATIVO: TIntegerField
      FieldName = 'TCX_ATIVO'
    end
    object qryNivelLIXO: TIntegerField
      FieldName = 'LIXO'
    end
    object qryNivelLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryNivelLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
    end
    object qryNivelID_SESSAO: TLargeintField
      FieldName = 'ID_SESSAO'
    end
  end
  object qryUsuarios: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO USUARIO'
      
        '  (ID, ID_EMPRESA, ID_NIVEL, USUARIO, CPF, EMAIL, SENHA, ATIVO, ' +
        'SEGUNDA, TERCA, QUARTA, QUINTA, SEXTA, SABADO, DOMINGO, SEG_INI,' +
        ' SEG_FIM, TER_INI, TER_FIM, QUA_INI, QUA_FIM, QUI_INI, QUI_FIM, ' +
        'SEX_INI, SEX_FIM, SAB_INI, SAB_FIM, DOM_INI, DOM_FIM, LIXO, LIXO' +
        '_USUARIO, LIXO_DATA, ID_SESSAO)'
      'VALUES'
      
        '  (:ID, :ID_EMPRESA, :ID_NIVEL, :USUARIO, :CPF, :EMAIL, :SENHA, ' +
        ':ATIVO, :SEGUNDA, :TERCA, :QUARTA, :QUINTA, :SEXTA, :SABADO, :DO' +
        'MINGO, :SEG_INI, :SEG_FIM, :TER_INI, :TER_FIM, :QUA_INI, :QUA_FI' +
        'M, :QUI_INI, :QUI_FIM, :SEX_INI, :SEX_FIM, :SAB_INI, :SAB_FIM, :' +
        'DOM_INI, :DOM_FIM, :LIXO, :LIXO_USUARIO, :LIXO_DATA, :ID_SESSAO)')
    SQLDelete.Strings = (
      'DELETE FROM USUARIO'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE USUARIO'
      'SET'
      
        '  ID = :ID, ID_EMPRESA = :ID_EMPRESA, ID_NIVEL = :ID_NIVEL, USUA' +
        'RIO = :USUARIO, CPF = :CPF, EMAIL = :EMAIL, SENHA = :SENHA, ATIV' +
        'O = :ATIVO, SEGUNDA = :SEGUNDA, TERCA = :TERCA, QUARTA = :QUARTA' +
        ', QUINTA = :QUINTA, SEXTA = :SEXTA, SABADO = :SABADO, DOMINGO = ' +
        ':DOMINGO, SEG_INI = :SEG_INI, SEG_FIM = :SEG_FIM, TER_INI = :TER' +
        '_INI, TER_FIM = :TER_FIM, QUA_INI = :QUA_INI, QUA_FIM = :QUA_FIM' +
        ', QUI_INI = :QUI_INI, QUI_FIM = :QUI_FIM, SEX_INI = :SEX_INI, SE' +
        'X_FIM = :SEX_FIM, SAB_INI = :SAB_INI, SAB_FIM = :SAB_FIM, DOM_IN' +
        'I = :DOM_INI, DOM_FIM = :DOM_FIM, LIXO = :LIXO, LIXO_USUARIO = :' +
        'LIXO_USUARIO, LIXO_DATA = :LIXO_DATA, ID_SESSAO = :ID_SESSAO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_EMPRESA, ID_NIVEL, USUARIO, CPF, EMAIL, SENHA, ATI' +
        'VO, SEGUNDA, TERCA, QUARTA, QUINTA, SEXTA, SABADO, DOMINGO, SEG_' +
        'INI, SEG_FIM, TER_INI, TER_FIM, QUA_INI, QUA_FIM, QUI_INI, QUI_F' +
        'IM, SEX_INI, SEX_FIM, SAB_INI, SAB_FIM, DOM_INI, DOM_FIM, LIXO, ' +
        'LIXO_USUARIO, LIXO_DATA, ID_SESSAO FROM USUARIO'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM USUARIO'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM USUARIO')
    Left = 120
    Top = 248
    object qryUsuariosID: TLargeintField
      FieldName = 'ID'
    end
    object qryUsuariosID_EMPRESA: TLargeintField
      FieldName = 'ID_EMPRESA'
    end
    object qryUsuariosID_NIVEL: TLargeintField
      FieldName = 'ID_NIVEL'
    end
    object qryUsuariosUSUARIO: TWideStringField
      FieldName = 'USUARIO'
      FixedChar = True
      Size = 40
    end
    object qryUsuariosCPF: TWideStringField
      FieldName = 'CPF'
      FixedChar = True
      Size = 15
    end
    object qryUsuariosEMAIL: TWideStringField
      FieldName = 'EMAIL'
      FixedChar = True
      Size = 50
    end
    object qryUsuariosSENHA: TWideStringField
      FieldName = 'SENHA'
      FixedChar = True
      Size = 40
    end
    object qryUsuariosATIVO: TIntegerField
      FieldName = 'ATIVO'
    end
    object qryUsuariosSEGUNDA: TIntegerField
      FieldName = 'SEGUNDA'
    end
    object qryUsuariosTERCA: TIntegerField
      FieldName = 'TERCA'
    end
    object qryUsuariosQUARTA: TIntegerField
      FieldName = 'QUARTA'
    end
    object qryUsuariosQUINTA: TIntegerField
      FieldName = 'QUINTA'
    end
    object qryUsuariosSEXTA: TIntegerField
      FieldName = 'SEXTA'
    end
    object qryUsuariosSABADO: TIntegerField
      FieldName = 'SABADO'
    end
    object qryUsuariosDOMINGO: TIntegerField
      FieldName = 'DOMINGO'
    end
    object qryUsuariosSEG_INI: TTimeField
      FieldName = 'SEG_INI'
    end
    object qryUsuariosSEG_FIM: TTimeField
      FieldName = 'SEG_FIM'
    end
    object qryUsuariosTER_INI: TTimeField
      FieldName = 'TER_INI'
    end
    object qryUsuariosTER_FIM: TTimeField
      FieldName = 'TER_FIM'
    end
    object qryUsuariosQUA_INI: TTimeField
      FieldName = 'QUA_INI'
    end
    object qryUsuariosQUA_FIM: TTimeField
      FieldName = 'QUA_FIM'
    end
    object qryUsuariosQUI_INI: TTimeField
      FieldName = 'QUI_INI'
    end
    object qryUsuariosQUI_FIM: TTimeField
      FieldName = 'QUI_FIM'
    end
    object qryUsuariosSEX_INI: TTimeField
      FieldName = 'SEX_INI'
    end
    object qryUsuariosSEX_FIM: TTimeField
      FieldName = 'SEX_FIM'
    end
    object qryUsuariosSAB_INI: TTimeField
      FieldName = 'SAB_INI'
    end
    object qryUsuariosSAB_FIM: TTimeField
      FieldName = 'SAB_FIM'
    end
    object qryUsuariosDOM_INI: TTimeField
      FieldName = 'DOM_INI'
    end
    object qryUsuariosDOM_FIM: TTimeField
      FieldName = 'DOM_FIM'
    end
    object qryUsuariosLIXO: TIntegerField
      FieldName = 'LIXO'
    end
    object qryUsuariosLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryUsuariosLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
    end
    object qryUsuariosID_SESSAO: TLargeintField
      FieldName = 'ID_SESSAO'
    end
  end
  object qryDupUsuarios: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO usuario'
      '  (id)'
      'VALUES'
      '  (:id)')
    SQLDelete.Strings = (
      'DELETE FROM usuario'
      'WHERE'
      '  id = :Old_id')
    SQLUpdate.Strings = (
      'UPDATE usuario'
      'SET'
      '  id = :id'
      'WHERE'
      '  id = :Old_id')
    SQLRefresh.Strings = (
      'SELECT ID FROM USUARIO'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM usuario'
      'WHERE'
      '  id = :Old_id'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT ID FROM USUARIO WHERE EMAIL = :email')
    RefreshOptions = [roAfterInsert]
    Left = 384
    Top = 120
    ParamData = <
      item
        DataType = ftWideString
        Name = 'email'
        ParamType = ptInput
      end>
    object LargeintField5: TLargeintField
      FieldName = 'id'
    end
  end
  object qryFornecedor: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO FORNECEDOR'
      
        '  (ID, ID_ASSINANTE, TIPO, NOME, RAZAOSOCIAL, CPF_CNPJ, RG_IE, O' +
        'RGAOEXP, IM, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, UF, ' +
        'CEP, FONE, FAX, CELULAR, EMAIL, OBSERVACOES, LIXO, LIXO_USUARIO,' +
        ' LIXO_DATA, ID_SESSAO)'
      'VALUES'
      
        '  (:ID, :ID_ASSINANTE, :TIPO, :NOME, :RAZAOSOCIAL, :CPF_CNPJ, :R' +
        'G_IE, :ORGAOEXP, :IM, :ENDERECO, :NUMERO, :COMPLEMENTO, :BAIRRO,' +
        ' :CIDADE, :UF, :CEP, :FONE, :FAX, :CELULAR, :EMAIL, :OBSERVACOES' +
        ', :LIXO, :LIXO_USUARIO, :LIXO_DATA, :ID_SESSAO)')
    SQLDelete.Strings = (
      'DELETE FROM FORNECEDOR'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE FORNECEDOR'
      'SET'
      
        '  ID = :ID, ID_ASSINANTE = :ID_ASSINANTE, TIPO = :TIPO, NOME = :' +
        'NOME, RAZAOSOCIAL = :RAZAOSOCIAL, CPF_CNPJ = :CPF_CNPJ, RG_IE = ' +
        ':RG_IE, ORGAOEXP = :ORGAOEXP, IM = :IM, ENDERECO = :ENDERECO, NU' +
        'MERO = :NUMERO, COMPLEMENTO = :COMPLEMENTO, BAIRRO = :BAIRRO, CI' +
        'DADE = :CIDADE, UF = :UF, CEP = :CEP, FONE = :FONE, FAX = :FAX, ' +
        'CELULAR = :CELULAR, EMAIL = :EMAIL, OBSERVACOES = :OBSERVACOES, ' +
        'LIXO = :LIXO, LIXO_USUARIO = :LIXO_USUARIO, LIXO_DATA = :LIXO_DA' +
        'TA, ID_SESSAO = :ID_SESSAO'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      
        'SELECT ID, ID_ASSINANTE, TIPO, NOME, RAZAOSOCIAL, CPF_CNPJ, RG_I' +
        'E, ORGAOEXP, IM, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ' +
        'UF, CEP, FONE, FAX, CELULAR, EMAIL, OBSERVACOES, LIXO, LIXO_USUA' +
        'RIO, LIXO_DATA, ID_SESSAO FROM FORNECEDOR'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM FORNECEDOR'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT * FROM FORNECEDOR')
    RefreshOptions = [roAfterInsert]
    Left = 120
    Top = 304
    object qryFornecedorID: TLargeintField
      AutoGenerateValue = arAutoInc
      FieldName = 'ID'
      Origin = 'FORNECEDOR.ID'
    end
    object qryFornecedorID_ASSINANTE: TLargeintField
      FieldName = 'ID_ASSINANTE'
      Origin = 'FORNECEDOR.ID_ASSINANTE'
    end
    object qryFornecedorTIPO: TWideStringField
      FieldName = 'TIPO'
      Origin = 'FORNECEDOR.TIPO'
      FixedChar = True
      Size = 2
    end
    object qryFornecedorNOME: TWideStringField
      FieldName = 'NOME'
      Origin = 'FORNECEDOR.NOME'
      FixedChar = True
      Size = 60
    end
    object qryFornecedorRAZAOSOCIAL: TWideStringField
      FieldName = 'RAZAOSOCIAL'
      Origin = 'FORNECEDOR.RAZAOSOCIAL'
      FixedChar = True
      Size = 60
    end
    object qryFornecedorCPF_CNPJ: TWideStringField
      FieldName = 'CPF_CNPJ'
      Origin = 'FORNECEDOR.CPF_CNPJ'
      FixedChar = True
      Size = 15
    end
    object qryFornecedorRG_IE: TWideStringField
      FieldName = 'RG_IE'
      Origin = 'FORNECEDOR.RG_IE'
      FixedChar = True
      Size = 15
    end
    object qryFornecedorORGAOEXP: TWideStringField
      FieldName = 'ORGAOEXP'
      Origin = 'FORNECEDOR.ORGAOEXP'
      FixedChar = True
      Size = 10
    end
    object qryFornecedorIM: TWideStringField
      FieldName = 'IM'
      Origin = 'FORNECEDOR.IM'
      FixedChar = True
      Size = 15
    end
    object qryFornecedorENDERECO: TWideStringField
      FieldName = 'ENDERECO'
      Origin = 'FORNECEDOR.ENDERECO'
      FixedChar = True
      Size = 60
    end
    object qryFornecedorNUMERO: TWideStringField
      FieldName = 'NUMERO'
      Origin = 'FORNECEDOR.NUMERO'
      FixedChar = True
      Size = 10
    end
    object qryFornecedorCOMPLEMENTO: TWideStringField
      FieldName = 'COMPLEMENTO'
      Origin = 'FORNECEDOR.COMPLEMENTO'
      FixedChar = True
      Size = 30
    end
    object qryFornecedorBAIRRO: TWideStringField
      FieldName = 'BAIRRO'
      Origin = 'FORNECEDOR.BAIRRO'
      FixedChar = True
      Size = 60
    end
    object qryFornecedorCIDADE: TWideStringField
      FieldName = 'CIDADE'
      Origin = 'FORNECEDOR.CIDADE'
      FixedChar = True
      Size = 60
    end
    object qryFornecedorUF: TWideStringField
      FieldName = 'UF'
      Origin = 'FORNECEDOR.UF'
      FixedChar = True
      Size = 2
    end
    object qryFornecedorCEP: TWideStringField
      FieldName = 'CEP'
      Origin = 'FORNECEDOR.CEP'
      FixedChar = True
      Size = 9
    end
    object qryFornecedorFONE: TWideStringField
      FieldName = 'FONE'
      Origin = 'FORNECEDOR.FONE'
      FixedChar = True
      Size = 15
    end
    object qryFornecedorFAX: TWideStringField
      FieldName = 'FAX'
      Origin = 'FORNECEDOR.FAX'
      FixedChar = True
      Size = 15
    end
    object qryFornecedorCELULAR: TWideStringField
      FieldName = 'CELULAR'
      Origin = 'FORNECEDOR.CELULAR'
      FixedChar = True
      Size = 15
    end
    object qryFornecedorEMAIL: TWideStringField
      FieldName = 'EMAIL'
      Origin = 'FORNECEDOR.EMAIL'
      FixedChar = True
      Size = 40
    end
    object qryFornecedorOBSERVACOES: TWideStringField
      FieldName = 'OBSERVACOES'
      Origin = 'FORNECEDOR.OBSERVACOES'
      FixedChar = True
      Size = 254
    end
    object qryFornecedorLIXO: TIntegerField
      FieldName = 'LIXO'
      Origin = 'FORNECEDOR.LIXO'
    end
    object qryFornecedorLIXO_USUARIO: TWideStringField
      FieldName = 'LIXO_USUARIO'
      Origin = 'FORNECEDOR.LIXO_USUARIO'
      FixedChar = True
      Size = 30
    end
    object qryFornecedorLIXO_DATA: TDateTimeField
      FieldName = 'LIXO_DATA'
      Origin = 'FORNECEDOR.LIXO_DATA'
    end
    object qryFornecedorID_SESSAO: TLargeintField
      FieldName = 'ID_SESSAO'
      Origin = 'FORNECEDOR.ID_SESSAO'
    end
  end
  object qryDupFornecedor: TMyQuery
    SQLInsert.Strings = (
      'INSERT INTO CLIENTE'
      '  (ID)'
      'VALUES'
      '  (:ID)')
    SQLDelete.Strings = (
      'DELETE FROM CLIENTE'
      'WHERE'
      '  ID = :Old_ID')
    SQLUpdate.Strings = (
      'UPDATE CLIENTE'
      'SET'
      '  ID = :ID'
      'WHERE'
      '  ID = :Old_ID')
    SQLRefresh.Strings = (
      'SELECT ID FROM CLIENTE'
      'WHERE'
      '  ID = :ID')
    SQLLock.Strings = (
      'SELECT * FROM CLIENTE'
      'WHERE'
      '  ID = :Old_ID'
      'FOR UPDATE')
    Connection = MyConnection
    SQL.Strings = (
      'SELECT ID FROM FORNECEDOR WHERE ID_ASSINANTE = :id_assinante AND'
      'CPF_CNPJ = :cpf_cnpj')
    RefreshOptions = [roAfterInsert]
    Left = 384
    Top = 168
    ParamData = <
      item
        DataType = ftInteger
        Name = 'id_assinante'
        ParamType = ptInput
      end
      item
        DataType = ftWideString
        Name = 'cpf_cnpj'
        ParamType = ptInput
      end>
    object LargeintField2: TLargeintField
      FieldName = 'id'
    end
  end
end
